home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
tegl6b.zip
/
INTROPAK.EXE
/
lha
/
MENU01.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-07-16
|
570b
|
28 lines
{-- menu01.pas }
{$F+}
USES
fastgrph, teglfont, tgraph, teglunit, teglmain, teglmenu;
function ExitOption(ifs : ImageStkPtr; Ms: MsClickPtr): Word;
BEGIN
Halt;
END;
VAR OmFile : OptionMPtr;
BEGIN
easytegl;
easyout;
OmFile := CreateOptionMenu(@f8x12bol);
DefineOptions(OmFile,' ~O~pen ',true,NilUnitProc);
DefineOptions(OmFile,'-',false,nilunitproc);
DefineOptions(OmFile,' E~x~it ',true,ExitOption);
SetTeglFont(@f8x12bol);
CreateBarMenu(0,0,getmaxx);
OutBarOption(' ~F~ile ',OmFile);
TeglSupervisor;
END.